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Note about Apple Manuals 


We have mentioned before how hard it is to find the Apple 
technical manuals, but it looks like there is now hope. We 
read somewhere this week that Apple has arranged for Addison- 
Wesley to distribute the manuals. If this really comes to 
pass, we will probably be able to get them for you like any 
bookstore. Here's hoping! 


New Version of 6800/6801/6301 Cross Assembler 


We have started the long process of upgrading the various S-C 
Cross Assemblers, and the first one is now available. Owners 
of Version 1.0 of the 6800/6801/6301 Cross Assembler and of the 
Version 2.0 of the S-C Macro Assembler can upgrade to Version 
2.0 of the Cross Assembler for $20. 


If you have not already upgraded to Version 2.0 of the S-C 
Macro Assembler (for the 6502 et al), you need to do that first 
Or at the same time. If you already have 6502 Version 2.0, but 
don't have the older version of the 6800 product, you can go 
directly there for only $50. 


6800 XASM Version 2.0 adds 80-column support (for //e, //c, 
Videx, and STB-80 users), five new directives, and all the 
other bells and whistles of our 2.0 products. 


New disk price!! 


Due to incredible competition, floppy disk prices are falling 
almost as fast as if they were semiconductors! Check our ad on 
page three for the current low price. 


18-Digit Arithmetic, Part 9.......2++e.e.-2--BOb Sander-Cederlof 


Nearing the home stretch, this month I will cover the DP18 
PRINT statement. I believe that only leaves INPUT for next 
month. 


Normal Applesoft PRINT has a wide variety of options. PRINT 
may appear all by itself to print a carriage return, or with 
one or more expressions. The expressions may be separated by 
commas or semicolons: both are used to separate the 
expressions for syntax purposes, but commas also cause a form 
of tabbing. A final comma or semicolon may be used to suppress 
the normal carriage return at the end ot the printed line. All 
numeric values are printed in an unformatted style. 


We wanted to have additional formatting capabilities in DP18 
PRINT. Many users of Applesoft have tried to write money 
handling programs, agonizing over the contortions necessary to 
Make pretty reports. BASIC on many other micros comes with 
PRINT USING, which includes a string describing the exact 
format to use for print a list of items. Applesoft doesn't 
have PRINT USING (we have graphics instead, and all ina 10K 
interpreter). DP18 does. 


DP18 doesn't have everything though. Here are some things we 
left out. Commas may be used to separate items in a DP18 PRINT 
statement, but no tabbing happens. Instead, commas cause 
Carriage returns. DP18 values are so long that comma tabbing 
seemed useless. You cannot fit two fully extended unformatted 
values in one 40-column line. Maybe you could say we do tab, 
all the way to the next line. Anyway, this gives us a useful 
NEW feature: the ability for one PRINT statement to print on 
more than one line. 


DP18 PRINT can only print DP18 expressions. Normal Applesoft 
real or integer expressions can be printed by normal Applesott 
PRINT, or by converting them to DP18 values using VAL and STRS. 
Applesoft string expressions can be printed uSing a DP18 
“picture", but not in the simple manner you are used to in 
normal Applesoft PRINT. 


DP18 in its present form supports three different kinds of 
items in a PRINT statement: DP18 expressions, #WD items, and 
SPIC items. 


The first kind is the easiest to use, and will remind you a lot 
of Applesoft. Since all you tell DP18 is the expression, it 
makes up its own mind about the format to use. We call this 
“unformatted", because it hard to predict how it will look once 
it is printed. If the absolute value of the number to be 
printed is within the range from .01 to 999,999,999,999,999,999 
(18 digits) it will print as a normal number, with no leading 
or trailing blanks and no trailing zeroes. If outside that 
range, it will be printed with an E exponent. Doesn't this 
remind you of Applesoft? Here are some examples using numbers 
(bear in mind they could be long complicated DP18 expressions) : 


Page 2....Apple Assembly Line....January, 1985.....Copyright (C) S-C SOFTWARE 


S-c Macro Assembler Version 10 aco een tesa ee aes Oe ee ee eee eee ObU 
S-C Macro Assembler VerSion 2.0... cccccccccvvccccescvesccvesccccscseves SLON 
Version 2.0 UDG AC 6 ceo5 sso ss Bow as Welw 6s ws WE 6 G6 SS Sse eee eeuewe seu eee noe” 
Source Code for Version 1.1] (on two diSk SideS) ....ccccccccvccvscesee SlOO 
Full Screen Editor for S-C Macro (with complete source code) ........+-$49 
S-C Cross Reference Utility (without Source Code). .ccccccccccccesccese GsU 
S-C Cross Reference Utility (with complete source code) ....ccccceseeee SIO 
DISASM Dis-Assembler (RAR =“WALlG ) 666460 %-66 WS 6 Ei w 64454 4.0% 00% MOOR Se eweeuwol” 
Source Code for DISASMecccc ccc ccc ccccccccccccccccccccccce sv Additional $30 


S-C Word Processor (with complete Source COde)..cccccccccccccveccceese G00 
Double Precision Floating Point for Applesoft (with source code)......$50 
S-C Documentor (complete commented source code of Applesoft ROMS).....$50 
Source Code of //e CX & FB ROMS OM GiSK....ccrccccrcvccsccsescccscveseee SlD 


(All source code is formatted for S-C Macro Assembler Version 1.1. Other 
assemblers require some effort to convert file type and edit directives.) 


AAL Quarterly Di GK 6 ci6.6 G56 55 wow 6 Oe bb Sow eee ee ee eee oekeseteces CACH $15 

Each disk contains all the source code from three issues of “Apple 
Assembly Line", to save you lots of typing and testing time. 
QD#1: Oct-Dec 1980 QD#2: Jan-Mar 1981 QD#3: Apr-Jun 1981 
QD#4: Jul-Sep 1981 QD#5: Oct-Dec 1981 QD#6: Jan-Mar 1982 
QD#7: Apr-Jun 1982 QD#8: Jul-Sep 1982 QD#9: Oct-Dec 1982 
QD#10: Jan-Mar 1983 QD#11: Apr-Jun 1983 QD#12: Jul-Sep 1983 
QD#13: Oct-Dec 1983 QD#14: Jan-Mar 1984 QD#15: Apr-Jun 1984 
QD#16: Jul-Sep 1984 QD#17: Oct-Dec 1984 


AWIIe Toolkit (Don Lancaster, SynergeticS) ..cccccccveseccvccccececesee SiO 
Visible Computer: 6502 (Software MaStersS) ..cccccscecccceee (rege $50) $45 
ES-CAPE: Extended S-C Applesoft Program Editor... ..ccccccsccnccsecees 900 
"Bag of Tricks", Worth & Lechner, with diskette.....cceeeeee ($39.95) $36 


Blank Diskettes (Verbatim) ....ccccccccccccccccsecee package of 20 for $35 

(Premium quality, single-sided, double density, with hub rings) 
Vinyl disk pages, 6"x8.5", hold two disks each....ccccccccccveeelOd for $6 
Diskette Mailing Protectors (hold 1 or 2 disks).............40 cents each 
or $25 per 100 

These are cardboard folders designed to fit into 6“X9* Envelopes. 
Envelopes for Diskette MailerS...cccccccccccccsccccsecccseee 6 Cents each 
quikLoader EPROM SysStem (SCRG)..ccccccvccccccccscccccsccccccccee (91/9) $170 
D MAnual Controller (SCRG)..ccccccccccccccccccccccsccsccsccseece (990) $85 
Switch-a-Slot CSCRG) 64. ¥.6:0:% 6:5. 064 000904665 66k Oo8 ONO 4 eee eww CO190) $175 
Extend-a-Slot (SCRG) 666.06 06684. 600 0 6s 0S 0 OS 4 ee wee (939) $32 
PROMGRAMER (SCRG) ..ccccccccccccccccccccssccccsccccccccccces (9149.50) $140 


Books, BOOKS, BOOKS.....cccccccccccvccvecsecee compare Our discount prices! 


“Inside the Apple //e", Little... .cccccccccccccsessvesses ($19.95) $18 
“Apple II+/IIe Troubleshooting & Repair Guide", Brenner.($19.95) $18 
“Apple J]{ Circuit Description", Gayler....cccccccccveveces ($22.95) $2] 
“Understanding the Apple II“, Sather... .cccccccccvcccccee (9220.95) $21 
“Enhancing Your Apple II, vol. 1", Lancaster......ceeeee ($15.95) $15 
Second edition, with //e information. 
"Assembly Cookbook for the Apple II/IIe", Lancaster.....($21.95) $20 
"Incredible Secret Money Machine”, Lancaster...ccccccceee ($7.95) $7 
"Beneath Apple DOS", Worth & LeEChner...ccccccccccccsccees ($19.95) $18 
“Beneath Apple ProDOS", Worth & Lechner....ccccccececevee ($19.95) $18 
“What's Where in the Apple", Second Edition......eeeeeee ($19.95) $19 
"6502 Assembly Language Programming", Leventhal.........($18.95) $18 
"6502 Subroutines", DOVenth al é-4se:0sceees dace seeee ewes (518.95) $18 
“Real Time Programming -- Neglected Topics", Foster...... ($9.95) $9 
“Microcomputer GraphicS", MYErS...cccccccesccscccscccece (912099) $12 


Add $1.50 per book for US shipping. Foreign orders add postage needed. 
Texas residents please add 6 1/8 % sales tax to all orders. 
*** S-C SOFTWARE, P. O. BOX 280300, Dallas, TX 75228 *** 
kk 


(214) 324-2050 wee 
*** We accept Master Card, VISA and American Express *** 
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aici 1,2,334:5 


2 

345 | 
}&DP:PRINT .009,.01,999999999999999999 
9E-3 

01 

999999999999999999 

J&DP:PRINT 1000000000000000000 

ial 


If a PRINT list item begins with the character “#", it is a é#wD 
formatted item. Three things follow the °#" character, 
separated by commas: a field width, the number of fractional 
digits, and a DP18 expression. (If you have ever used Fortran, 
this is going to remind you of the "Fw.d" format.) 


&DP:PRINT #w,d, value 


The w and d parameters are Applesoft expressions (or simple 
constants), and the value is a DP18 expression. The value will 
be printed right-justified in a field w-characters wide, with d 
decimal places after the decimal point. Leading blanks will be 

rinted if there is room for any. If the number will not fit 
in w characters, w asterisks will be printed instead to show 
you there was an overflow problem. Values are rounded to the 
required number of decimal places, not just truncated. Here 
are some examples: 


] &DP : PRINT #8,3,2.04;#8,3,5,#10,5,3.14159, #3,1,99 
2.040 5.000 
3.14159 

kkk 

J&DP:PRINT #8,4,3.14159,#7,3,3.14159, #6,2,3.14159 
3.1416 
3.142 
3.14 


100 FOR I=0TOS5 

110 PRINT I;:&DP:PRINT #10-1,5-1,3.1415926 
120 NEXT 

]RUN 

0 3.14159 
1 3.1416 
2 3.142 

3 3.14 

4 3.1 

5 3. 
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The third type of PRINT item begins with a dollar sign. A 
string constant, variable, or expression follows the dollar 
Sign. If the picture specifies fields for DP18 or string 
values to be printed in, then the list of values must follow 
the picture, all separated by commas. 


&DP:PRINT $ picture 
&DP:PRINT $ picture,list 


The “picture” is any Applesoft string expression; it is used as 
the template for formatting the expressions in the optional 
list. The list may have any number of expressions separated by 
commas as long as they correspond with the picture. You may 
even have no expressions at all, which is why I say the list is 
optional. 


The picture consists of a string of characters. There are four 
basic types of characters used in pictures: commands, 
literals, numbers, and field descriptions. These are described 
below. 


Any number in the picture makes up a repeat count. The repeat 
count specifies how many times to repeat the following command 
or field-description character. If a command is not preceded 
by a repeat count, al is assumed. Repeat counts may range 
anywhere from 1 to 255. 


The commands which may be included in pictures give you control 
over the screen and cursor. Some of the commands allow a 
repeat count to be specified. In the following descriptions, 
“n"® refers to the optional repeat count. If no repeat count is 
used, n=l. 


/ -- Prints n carriage returns. 
X -- Prints n spaces. 
> -- Clear to from the cursor to the end of line. 


If the next picture character is also “>", 
clear from the cursor to the end of screen. 


V -- Performs VTAB n, where n must be from 1 to 24. 


H -- Performs HTAB n. [As implemented now, this is 
probably not compatible with your printer or 
80-column cards. ] 


Literals are defined in strings using the apostrophe. Any text 
you want to print from inside the picture may be included 
between apostrophes. If you want to include an apostrophe 
inside a literal, put two apostrophes in a row. If you put a 
repeat count before the literal, it will be printed n times. 


Now here are some examples using repeat counts, commands, and 
literals. 


&DP:PRINT $ “VH>>" (moves the cursor to the top left 
corner, and clears the screen.) 
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]&DP:PRINT $ "'SEPARATE'/'LINES‘ " 
SEPARATE 

LINES 

]&DP:PRINT $ “4V10H3'BANG! '" 


Starting at line 4 column 10 prints: 
BANG! BANG! BANG! 


There are two kind of field descriptions: one for telling DP18 
how to print numbers and the other for telling how to print 
strings. Since string descriptors are easier, let's start with 


them. 


A string field descriptor tells DP18 how to print the value of 
an Applesoft string. There are three different characters 
used, which tell DP18 whether to left-justify, right-justify, 
or center the value of the string within the field. Since we 
are building a "picture", the width of the field is shown by 
using multiples of the controlling character. The three 
different controlling characters are: 


A -- Print the string left justified in the field. 
R -- Print the string right justified in the field. 
C -- Print the string centered in the field. 


The data to be printed comes from the list of data items which 
follows the picture. Here are some examples using string 


descriptors: 


JAS="ABC" 

] PS="AAAAAAA' - 'RRRRRRR'-'CCCCCCC'-'" 
])&DP:PRINT S$ PS,AS$,AS,AS$ 

ABC - ABC- ABC - 

aad@aaaa. rrrrrrr.ccccccc, 


JPRINT $"RRRRR X 5A 'HI' 6C 'BYE'","“AB", “ABC”, "XY" 
AB ABC HI XY _ BYE 
rrrrrxaaaaa..CCcccc... 


If you mix the A, C, and R control letters in one string field 
descriptor, the controlling letter will be the last one in the 
field. If you want to have two fields adjacent to each other, 
you can separate the descriptors with a space, The space will 
not become part of the printed output. If a string value is 
too long to fit in a field, the field will be filled with 
asterisks instead of the actual data. When you see asterisks 
where you expected data, the data was too long. 


]&DP:PRINTS$"AAA AAA AAA“, “AN", “EGG", “ROLLS “ 
AN EGG*** 


Numeric field descriptors are made up of the characters listed 
below. The number to be printed is taken from the expression 
list. The expression corresponding to a numeric field 
descriptor MUST be a DP18 expression. If it is not a DP18 
numeric expression, an error will result. If the number is too 
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APPLE IL, i+, & /7e OWNERS 


UPGRADE TO 16 BITS ! 
65802 CPU $49.95 


16 bit version of the 6502. Pin for pin and completely software 
compatible with the 6502 CPU. You can upgrade your Apple If, }[+ 
or //e to a 16 bit computer simply by replacing the 6502 with 


the 65802 without losing the ability to run any old software. 


65816 ORCA/M (list $39.95) $34.95 


Chosen by the designers of the 65602/816 as the standard 65802 
assembler, this add-on package extends ORCA to handle the 65802 
CPU. Must be used with the DOS 3.5 version of ORCA/M 3.5. 


ProDOS ORCA/M (list $79.95) $69.95 


This ProDOS version of ORCA/M comes with the complete 65802 
instruction set. If you intend to develope software for this new 
CPU, then this package is a must. 


802/816 Pascal P-code Interpreter COMING SOON 
This P-code interpreter will be for use with Apple Pascal. With 


this product, programs written with Apple Pascal will be able to 
take advantage of the 65802's features. 


16 Bit Upgrade Starters Package $109.95 
This package includes 65802 CPU and the ProDOS ORCA/N. All 
you need to start. 


TO ORDER, SEND CHECK OR MONEY ORDER TO: 
ALLIANCE COMPUTERS 
PO BOX 408 


CORONA, NY 11368 


POSTAGE AND HANDLING INCLUDED 
COD ADD 3%, APO's & FPO's WELCOMED 
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large for the field, asterisks will be printed. The number is 
rounded to the number of decimal places you specify in the 
descriptor before printing. Trailing zeroes after the decimal 
point are printed if necessary to fill up the field. 


+ -- Reserves a place for the sign of the number. 
the sign will be printed in this position 
even if the number is positive. The sign 
may be placed anywhere within or at either 
end of the number. 


- -- Also reserves a place for the sign, but the 
Sign will only be printed if it is negative. 
If the number is positive, the £111 character 
is printed instead. 


(If neither + nor - is present in the field descriptor, the 
sign is printed only if the number is negative. It is printed 
just to the left of the first significant digit of the number. 
If you used zero or star fill, this looks ridiculous; therefore 
be sure to specify the sign position when you use zero or star 
fill.) 


# -- Reserves a place for a digit, and selects 
Space fill. Unused digit positions to the 
left of the most significant digit will be 
filled with spaces. 


* -- Reserves a place for a digit, and selects 
Star fill. Unused digit positions to the 
left of the most significant digit will be 
filled with stars. | 


Z -- Reserves a place for a digit, and selects 
zero fill. Unused digit positions to the 
left of the most significant digit will be 
filled with zeroes. 


- ~~ Reserves a position for the decimal point. 
The number will be lined up with the decimal 
point. If no decimal point is present in 
the picture, none is printed. Don't try 
to put more than one decimal point in one 
descriptor. 


, 7- Puts a comma in the number. If the comma 
would precede all the non-blank characters 
printed in the field, the comma will not be 
printed. 


If a mixture of #, *, and Z characters are used in field 
descriptor, the field will be controlled by the last one. 


JPRINTS “‘THE ANSWER IS ‘###, ###. ##",53156 .6378 
THE ANSWER IS 53,156.64 


JPRINTS “#888. 8+ /8htt. F4-/ESEE. £9+/ F899. 98-", 
12,12.3,-12.34 7712.345 
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JPRINTS "52.32",125.65 
00125.650 


The listing of the DP18 PRINT code follows. There are 
references to five subroutines printed in previous issues of 
AAL in lines 1220-1260. The subroutines INPUT.NUM and 
INPUT.STR which are also referenced will not be printed until 
next month. Ah, anticipation...! 


When the &DP processor encounters a PRINT token, it jumps to 
DP.PRINT at line 1690. I like simple code, so you can see for 
yourself that DP.PRINT is only three lines long. All the work 
is done by PRINT.END (lines 2100-2420) and the routines it 
calls. 


PRINT.END checks for “3;" and “," separators between PRINT 
groups, and branches to the processors for each of the three 
types of PRINT groups. Lines 2110-2130 check whether we are at 
the end of the PRINT statement. If so, AS.CROUT prints a 
Carriage return and we leave. If not at the end, a semicolon 
takes us down to line 2400. There we again check for the end, 
because a semicolon on the end of the PRINT statement means to 
omit the final carriage return. A comma takes us to line 2380 
where we force-print a carriage return (DP18's kind of tabbing, 
remember). 


Lines 2180-2210 check for the three possible types of PRINT 
groups: "$" means print with a picture, “#" means print with a 
w.d format, and anything else means unformatted printing. The 
#w.d type is handled right here in lines 2230-2360. 


Lines 2230-2250, with the help of some code in the Applesoft 
ROMs, read the next characters from the PRINT statement, 
calculate whatever expression they represent, and save the 
result for the field width “w". Lines 2260-2300 do the same 
for “d“. Line 2310 evaluates the DP18 expression for the data 
value to be printed. Lines 2320-2350 call on the FORMAT.PRINT 
subroutine discussed some months ago in AAL. After printing, 
we go back to the top of PRINT.END to allow another PRINT 


group. 


Unformatted printing is handled in lines 1740-2080. Line 1750 
evaluates the DP18 expression to be printed. Lines 1760-1800 
decide whether to use normal or exponential format, depending 
on position of the decimal point. The exponential format is 
handled by QUICK.PRINT and the normal format by FOUT, both 
printed in an earlier installment. We call FOUT with a format 
of 40 characters wide and 19 places after the decimal point. 
Then we print only the significant digits of the resulting 
string. All leading blanks and trailing zeroes are omitted. 
If the last character is a trailing decimal point, it too is 
omitted. 
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Printing with a picture starts at line 2440. The picture 
processing code is also used by DP18's INPUTS statement, and a 
Simple flag is used to tell who called. PRINT sets the 
INPUT.FLAG = 1, INPUT sets it = 0. INPUTS and PRINTS join at 
line 2470. 


The first step in picture processing is to make a working copy 
of the picture in DP18‘'s PICTURE.BUF. Lines 2490-2510 evaluate 
the string expression which is the picture. Lines 2520-2650 
copy the result into PICTURE.BUF, and place a terminating $00 
at the end. Line 2680 initializes a bunch of variables so we 
can begin to process a field within the picture. (PICTURE.BUF 
is 256 bytes long. If you want a good project, figure out how 
to avoid using PICTURE.BUF. We could with more difficulty use 
the picture right where it is after AS.FRMEVL finishes.) 


Lines 2700-2840 control the picture parsing. The basic idea is 
to scan through the picture executing command characters as we 
go, converting numbers to repeat counts, and printing literals. 
When a field descriptor is encountered, it is built up in WBUF 
to form a template for the conversion. If any of the 
characters of the descriptor were preceded by a repeat count, 
those characters will be reduplicated the specified number of 
times in the WBUF template. After the template is complete, an 
expression will be evaluated from the PRINT list, and converted 
into character form. Then those characters will be merged into 
the template, and the result printed. I got ahead of myself a 
little, but I wanted to give the overall view first. 


PRUS.NEXT calls LOOKUP to process each character of the 
picture. Lookup searches the table shown in lines 3620-4010. 
Each entry in the table is three bytes long: the first byte is 
the character to be matched, and the next two are the address 
of a subroutine for processing that character. Actually this 
address is one less than the subroutine address, because it 
will be pushed onto the stack and branched to with an RTS 
instruction (see lines 3160-3190 and 3260). The order of the 
entries in the table is also somewhat significant. There are 
three groups of entries: the first group includes characters 
which may be part of a numberic field descriptor; the second, 
characters for string field descriptors; and the third, command 
characters. The labels L.EITHER and L.BOTH mark the edges of 
these three groups. 


If LOOKUP matches a character, it checks to see if the 
Character is in the third group (line 2980). If so, we know 
any field descriptor which may have been building is ended, so 
lines 3000-3010 clear the FLD.FLAG. If not, lines 3030-3070 
start a new field unless we were already in one. 


Lines 3080-3140 check if we have finished a field descriptor. 
We may have, if the matched character was a command character 
or a field-descriptor character of the opposite type field. 

So, if the mathced character was a numeric-field character, we 
call PRT.STR.IF.NEEDED; if it was a string-field character, we 
call PRT.NUM.IF.NEEDED; and if a command character, we call 
both of the IF.NEEDED's. The IF.NEEDED routines check if we 
were building up the corresponding field descriptor. If so, we 
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need to get a value from the PRINT list and print it now, 
before continuing to process the latest picture character. 


Next, LOOKUP branches to the processor for the particular 
Character matched. It sets up the repeat count, if any has 
been accumulated, in the Y-register. If no repeat count has 
been accumulated, y is set to l. The routines are all in lines 
4020-5250. 


If LOOKUP does not find the picture character in the table, it 
may be a digit of a repeat count. If so, lines 3280-3450 
multiply the existing repeat count by ten and add in the new 
digit. No check for overflow is done here, so if you write a 
repeat count of more than 255, it will be taken modulo 256. If 
you want to check for overflow, insert the check after line 
3330: 


CMP #25 
BCS RP.OVERFLOW 


and put a line after line 3610: 
RP.OVERFLOW JMP AS.OVRFLW 


If the character is not even a digit, it is good for nothing 
but separating field descriptors. Lines 3470-3480 call the two 
IF.NEEDED routines, in case a field descriptor preceded the 
non-matching character, and then fall into PRUS.CLEAR to get 
ready for the next picture character. 


If the picture character is Z, #, or * the code at lines 
4070-4240 goes to work. There are three different entry points 
here. A "“Z" enters at IP.ZERO, where the A-register is cleared 
and a $2C opcode is used to skip over the following two bytes 
of code. You may recall that $2C is the opcede for BIT with a 
two-byte address. The 6502 acts like the “LDA #' '* is an 
address for the BIT instruction, and in effect that “hops over" 
line 4110. (This is a common coding trick in the. 6502 world, 
and is safe except when the second of the two skipped bytes is 
in the range from $CO through $C7. In that range you run the 
risk of flipping some soft switches in the 1/0 space.) 


Lines 4070-4140 store zero, blank, or asterisk in FILL.CHAR and 
in the template being created in WBUF. These positions in the 
template will later be replaced with the actual digits of the 
converted number, unless they precede the mest significant 
digit. The “w* and “d" parameters are also incremented as 
appropriate, so that we can later call FOUT to create the 
initial image of the converted number. Lines 4220-4230 loop on 
the repeat count, storing multiple copies of the fill character 
if you used a repeat count. We also set the FOUND.NUM flag 
non-zero, so that the PRT.NUM.IF.NEEDED subroutine will realize 
the need to print. 


The RTS on the end of all the IP... processors takes control 


back to the middle of PRUS.NEXT, because they are actually just 
extensions to LOOKUP. 
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Lines 4290-4310 handle both the + and - picture characters. 

The character is stored in the template, and also in SIGN.CHARI] 
as a flag. We need later to know whether any + or - appeared 
in the template at all, so the flag will be useful then. 


If a decimal point appears in the picture, we store it in the 
template and also note the fact by setting DECFLG non-zero. A 
comma is merely stored in the template. See lines 4340-4440 


for these two. 


Lines 4450-4560 build templates for string field descriptors. 
The characters A, C, and R and just counted, while saving the 
lates one in FOUND.CHAR. When the PRT.STR.IF.NEEDED subroutine 
is called later, all we will need to know is which mode to use 
(A, C, or R) and how wide the field is. 


Lines 4570-4760 print literal strings from the picture. The 
only tricky part of this is the handling of the closing 
apostrophe. A single apostrophe signals the end of the literal 
string, while two apostrophe's in a row mean an apostrophe 
should be printed within the literal. 


Slash or "X" in a picture are handled by lines 4770-4880. Note 
the use again of the $2C to skip over two bytes of code. 


Lines 4900-4960 handle the HTAB command. This is the bare 
minimum handling, and I can suggest some enhancements you might 
like to add here. You might want to check and be sure the 
value is between 1 and 40, giving an error message if out of 
range. You might want to adapt it to work with your particular 
printer and 80-column card combinations. Or 132-column 
Ultra-Term. It's up to you. 


Lines 4970-5040 process the VTAB command, and here I do check 
for a valid line number. Of course, if you have an Ultra-Term 
set up for more than 24 lines you would want to change the 
limit in line 5000. 


Lines 5050-5180 handle the screen clearing commands. A single 
">" character calls MON.CLREOL to clear from the cursor to the 
end of the current line. If the following character in the 
picture is also a “>", MON.CLREOS is called instead. 


PRT.NUM.IF.NEEDED (lines 5190-5330)is one of the two IF.NEEDED 
twins. If FOUND.NUM is non-zero, indicating that we have been 
building a numeric field template, then now is the time to 
print a number. Unless, of course, we are doing INPUTS rather 
than PRINTS. More on that subject next month. 
PRT.STR.IF.NEEDED (lines 6320-6460) does the same for strings. 


When a number needs to be printed, lines 5340-5420 get it ready 
for conversion. Line 5390 evaluates the next expression from 
the PRINT list, and it all falls into PRT.NUM.1 at line 5440. 
INPUTS has an entry at this same point. 


Lines 5450-5490 make room for the sign character if the 


expression value is negative and a sign reservation character 
was used in the template. Then W and D are correct for calling 
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RAMWORKS' 
800K Apple Works Desk Top, 450K Visicalc, 
1 Meg Solid State Disk 


Double Hi-Res, RGB, ie Apple Compatible! 
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RAMWORKS"™—A card that plugs 
into the Apple Ile auxiliary slot and 
functions EXACTLY like Apple's 
extended 80 column card (in fact. a 
128K RAMWORKS” actually costs 
less than Apple's 64K extended card) 
but with RAMWORKS”™ you get more 
memory. 80 column text. a 3-year 
warranty and most importantly. room 
to grow without using more slots. A 
design so advanced there's a patent 
pending on it. If you have a Ilc or an 
IBM. we suggest you do what every- 
body does. trade it in ona lle. 

RAMWORKS"” can be purchased 
in a wide range of sizes and Is user 
upgradeable using either64K RAMS 
or the new 256K RAMS. In fact. 
RAMWORKS" is the only auxiliary 
slot card on the market that will allow 
the new 256K RAMS to be used. If 
you already have an extended 80 
column card, no problem. Just un- 
plug the 64K RAMS and plug them 
into the RAMWORKS” for an addi- 
tional 64K. A RGB option is also 
available, you can order it with your 
RAMWORKS” card or add it on ata 
later date. 

RAMWORKS" saves you time, 
money. slots and hassle. You'll have 
additional memory NOW and in the 
future. 


Ramworks™ 
64K Installed 
128K Installed 
256K Installed 
512K Installed 

1 MEG Installed 
RGB Option 


(May be added later 
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LOW COST SOFTWARE OPTIONS 


Ram Drive Ile 

Ram Drive Ile will give you a high 
speed solid state disk drive. The 
Ram Drive lie software features 
audio-visual access indicators. easy 
setup for turnkey operation, and easy 
menu driven documentation. The 
program can be modified and is 
copyable. If you have a 64K RAM- 
WORKS”. Ram Drive He will act as 
half a disk drive. If you have a 128K 
or larger RAMWORKS"™. Ram Drive 
lle will act as a full disk drive. Either 
way. your programs will load and 
save over 20 times faster. Ram Drive 
Ile is compatible with APPLESOFT. 
PRO DOS. DOS 3.3. and PASCAL. 
The disk also includes a high speed 
RAMdisk copying program. Ram 
Drive is another disk drive only 20 
times iaster. And no whirring, clicking 
and waiting! PRICE $29 


CP/M Ram Drive Ile 

CP/M Ram Drive lle is just like the 
Ram Drive Ile above, only for CP/M. 

CP/M Ram Drive Ile runs on any 
Z-80 card that runs standard CP/M 
i.e. Applied Engineering Z-80 Plus or 
Microsoft Soft Card. CP/M Ram Drive 
will dramatically speed up the opera- 
tion of most CP/M software because 
CP/M normally goes to disk fairly 
often. Fast acting software like 
dBase ||, Wordstar and Turbo Pascal 
becomes virtually instantaneous 
when used with CP/M Ram Drive. 

PRICE $29 


VC Ile Expander 


VC |Ile expander gives owners of 
Visicalc lle and Advanced Visicalc 
lle increased storage. When used 
with VC Ile you'll get 141K work- 
space (128K RAMWORKS"™ or larger 
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required). When used with Advanced 
VE Ile you'll get 131K with a 128K 
RAMWORKS"™. 250K with a 256K 
RAMWORKS” and 450K witha 512K 
RAMWORKS"™. PRICE $29 


Apple Works Expand 


Although Apple Works is com- 
patible with all sizes of RAM- 
WORKS", Apple Works only “sees” 
its first 64K bank giving you a 55K 
desktop. Our Apple Works expand 
program will make a modification to 
Apple Works that simply lets it know 
you've got more memory, giving you 
101K work space. PRICE $29 


Super Apple Works Expand 


This souped-up version of Apple 
Works expand doesn't stop ata 101K 
desk top, in fact Super Apple Works 
Expand figures out how much 
memory your RAMWORKS” has to 
give Apple Works the following desk- 
top sizes: 


ng APPLEWORKS 
RAMWORKS DESKTOP 


PRICE $39 
AppleWorks can also be putin the 
RAMWORKS” card to eliminate disk 
access, thereby dramatically speed- 
ing up the program. 


APPLIED ENGINEERING 


Send Check or Money Order to 

Applied Engineering 

PO. Box 798 Carrollton. TX 75006 

Call (214) 492-2027 

Bam to tl pm 7 days a week MasterCard Visa & 
COD Weiccme No extra charge lor credit cards 
Texas residents add 5'+% sales tax Add $10 00 if out- 
side USA 
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FOUT in lines 5500-5530. The remainder of the PRINT.NUM 
subroutine copies characters from the FOUT.BUF string into the 
template, and then prints the fleshed-out template. Sounds 
easler than it really is.... 


Lines 5540-5690 control the scan through the template in WBUF. 
Commas in the template are handled right there: if any previous 
digits have been displayed, or if the fill character is “0O" or 
“*", the comma is left in the template. If no digits have been 
stored yet and the fill character is blank, the comma is 
blanked out. It would look kind of silly hanging out in front 


of a number. 


Lines 5700-5720 process a + or - character from the template. 
The actual code for PRUS.SGN at lines 6110-6310 does the work. 
If the template character is “+“, it gets changed to “-“ if the 
Sign of the numeric value is negative. If the template 
character is "-"“, it gets changed to blank if the numeric value 


is positive. 


If the template character is a digit place-holider, the next 
Character from FOUT.BUF is examined. If the FOUT.BUF character 
is a digit, it is stored into the template. If not a digit, it 
Might be a decimal point, a minus Sign, or a leading blank. A 
leading blank gets changed to whatever the fill character is 
for the current template and stored in the template. A minus 
Sign will be stored if there was no sign-position character in 
the template. A decimal point will be in the same position in 
both template and FOUT.BUF, so nothing needs to be done with 
it. 


Since a sign-position character could come at the end of the 
template, lines 6000-6020 check for that condition. 


Finally, lines 6030-6100 print out the composite string from 
WBUF. 


String fields are printed by PRINT.STR, starting at line 6470. 
Lines 6470-6550 evaluate a string expression from the PRINT 
list, and set up a pointer to the resulting string value. The 
entry PRINT.STR.1 is shared with INPUTS. Lines 6570-6620 
determine how much longer the field is than the string value. 
If it is too short, lines 6630-6700 fill the fieid with stars 
for an overflow indication. 


If the string will fit, lines 6710-6750 store the number of 
left-over spaces in the field. If we are left-justifying, 
these will all come at the end; if right-justifying, at the 
beginning; if centering, half on each end. Lines 6760-6800 
branch according to which type of string field we have (A, C, 
or R). Lines 6810-6840 print leading spaces for type-R fields. 


Lines 6850-6910 divide the number of extra spaces in half, so 
half can be printed before the string and half after. If there 
were an odd number of extra spaces, the extra extra space will 
be printed after the string. For example, a four-character 
string in a nine-character field would be preceded by two 
blanks and followed by three. 
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That about winds up the discussion of the DP18 PRINT support. 
You can add or subtract features from this base, to create the 
exact configuration you need. 


I should give credit to Bobby Deen for the original coding of 
the PRINT statement routines published this month, and the 
INPUT stuff next month. I revised them considerably since he 
wrote them two years ago, but you can still see his marks. 
Bobby is still pulling in a 4.0 average (highest possible) at 
Texas A & M, and programming for pay at the same time. 


1000 *SAVE S.DP18 PRINT 
1020 * _APPLESOFT SUBROUTINES 
DAFB- 1040 AS.CROUT .EQ $DAFB PRINT CARRIAGE RETURN 
DB5C- 1050 AS.COUT EQ $DB5C ~=PRINT A CHARACTER 
DD7B- 1060 AS.FRMEVL -EQ $DD7B EVAL FP FORM. OR STRING 
DEBE- 1070 AS . CHKCOM -EQ $DEBE § CHECK FOR COMMA 
DEC9- 080 AS.SYNERR -EQ $DEC9 YNTAX ERROR 
E199- 090 AS.ILLERR -EQ $E199 ILLEGAL QUANTITY ERROR 
ESFD- 00 AS.FRESTR -EQ $E5FD ERR IF NOT STRING, FREE UP A TEMP 
EOF 9- 10 AS.GTBYTC -EQ $EOF CHRGET, THEN GETBYT STRING 
E6FB- 20 AS .GETBYT -EQ $E6F GET EXPR AS BYTE IN X 


exh anh ond anh enh ech and ooh aed ond ocd and and 
DQ aud ot od wh 2 ed ged cd ath enc 
2ean 


0 Beewes oo cacne see cee ce oee sean cewe 
FC24- 20 MON . ¥VTABZ EQ $FC24 
FC42- fo MON .CLREOS ~EQ $FCH2 
FC9C- MON . CLREOL -EQ $FC9C 
1260 : DP SUBROUTINES PRINTED ELSEWHERE 
FFFF= 1220 DP.NEXT.CMD EQ $FFFF 
FFFF= 1230 DP. EVALUATE EQ $FFFF 
FFFF- 12 FOUT eEQ SFFFF 
FFFF- 1250 QUICK. PRINT -EQ $FFFF 
FFFF- 1260 FORMAT.PRINT -EQ $FFFF 
FFFF- 1270 INPUT.NUM -EQ $FFFF 
FFFF= ‘S00 INPUT. STR -EQ $FFFF 
1300 # PAGE ZERO USAGE 
1319 Ssecece. as mee ERR eee ee a 
24e 1320 MON.CH ~EQ $24 
25- 1339 MON .CV EQ $25 
Bie 1340 AS.CHRGET -EQ $B1 
BT7- 1326 AS .CHRGOT ~EQ $B 
F9- 1360 P2 -EQ $F 
FD- 1370 P1 -EQ $FD GP POINTER 
FB- 13 TEMP2 -EQ $FB 
0200- 1260 WBUF -EQ $0200 
1420 # WORK AREAS FOR DPFP 
1430 Wes eeee aces eco este esco ee 
0800- 1440 DECFLG -BS 1 
0801- 1450 DAC. EXPONENT -BS 1 
0802—- 1460 DAC.SIGN -BS 1 
0803- Ly FOUT. BUF -BS 41 
082C- 14 ST ACK. PNTR -BS 1 
082D- 1490 W -BS 1 
082E- 1500 D -BS 1 
O82F- 1510 SIGN.CHAR1 -BS 1 
0830- 1520 INPUT.TYPE -BS 1 
0831- IPRS FOUND. NUM -BS 1 
0832~- 1540 FOUND.STR -BS 1 
OB sae A220 STR .LEN ~BS 14 
0 - 1560 REPEAT.CNT -BS 1 
08 35- Led FOUND. LEN -BS 1 
08 36— 1580 FOUND.CHAR -BS 1 
OF 3h. 1230 FILL. CHAR -BS 1 
08 38- 1600 CHAR -BS 1 
0839- 1610 INPUT.FLAG -BS 1 
08 3A- 1620 ZERO.CHAR -BS 1 
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fc BE 09 2 


20 FB DA 


FLD. FLAG -BS 
FLD. START -BS 
TEMP3 -BS 
INDEX -BS 
PICTURE. BUF -BS 
DP. PRINT 


JSR AS.CHRGET 

JSR PRINT. END 

JMP DP.NEXT.CMD 
DP. UNFORMAT 

JSR DP. EVALUATE 

LDA DAC. EXPONENT 


CMP #$40+19 
BCS . 
CHF #340-1 


JSR FOUT 

#---TRIM TRAILING ZEROES 
LDY INDEX 

1 DEY 


LDA FOUT.BUF-1,Y 
CMP #'0 


2 LDA #0 
STA FOUT.BUF-1,Y 
STY INDEX 
*---PRINT WITHOUT LEADIN 
3 LDA FOUT.BUF,Y 
BEQ PRINT. END 
CMP #$20 
BEQ . 
JSR AS.COUT 
4 INY 


GET EXPRESSION 
GET EXPONENT 

MORE THAN 18 DIGITS BEFORE DECPT? 
YES, USE SCIENTIFIC 

LESS THAN .01? 

YES, USE SCIENTIFIC 


ALLOW PLENTY OF WIDTH 
AND DECIMAL PLACES 


FIND END OF BUFFER 


TRUNCATE TRAILING ZEROES 
IS eae ONE fen 


Saat KEEP Tieanc 
OMIT “DECIMAL POI) ON INTEGERS 
TRIM NO MORE.. 

MARK END OF MEANINGFUL CHARS 
G BLANKS- 

Y=0 


BLANK? 
e+e YES, DON'T PRINT 
...NO, PRINT IT 


e+e ALWAYS 


BNE .3 
®.--PRINT WITH EXPONENT---------- 


05 JSR QUICK. PRINT 


PRINT. act 


1 


BEG BP PRINT.USIN 
#3 PRI 


NOT *:* OR EOL 


PRINT USING? 


NG 


»D? 
BNE ae VAL NO, UNFORMATTED PRINT 


#---PRINT #W 
J 


"8. O3BY 


AS .CHKCOM 
AS .GETBYT 


AS . CHKCOM 
DP. EVALUATE 


ae PRINT 
PRINT. END 
6--- COMMA AFTER IT 
2 JSR AS.CROUT 


GET W IN X-REG 


MUST HAVE COMMA 
GET D IN X-REG 


ANOTHER COMMA 
GET EXPR 
GET D 


DP18'S KIND OF TABBING 
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2390 #---"," OR ":" AFTER ITEM-------- 
09C5- 20 B1 00 2460 .3 JSR AS.CHRGET NEXT CHAR 


cb- do cc —_ 2410 BNE .1 NEXT PRINT ITEM 
CA- 60 2420 | RTS 
2440 DP.PRINT.USING 
O9CB- AQ 01 28 0 LDA #1 PRINT, NOT INPUT 
2470 PRINT. INPUT 
O9CD- 8D 39 08 24 STA INPUT.FLAG | O=INPUT, 1=PRINT 
O9D0- 20 Bi 00 2490 JSR AS.CHRGET EAT THE 
09D3- 20 7B !:% 2500 JSR AS.FRMEVL GET PICTURE 
09D6- 20 FD <5 2510 JSR AS.FRESTR ERR IF NOT STRING, FREE TEMP 
05D9- 86 FD 2520 STX P1 ADDR IN Y,X, LEN IN A 
O9DB- Bt FE 2530 STY P1+1 
O9DD- 8D 33 08 25 STA STR.LEN 
09E0- M8 2550 INC STR.LEN WE'RE GOING TO ADD ONE 
OOE3- A 2560 TAY LENGTH TO Y 
O9F4- Ag 00 — 2570 LDA #0 PUT O AT END OF PICTURE 
O9E6- 99 40 08 2580 STA PICTURE.BUF,Y 
OE - §D 2c 08 2590 STA STACK. PNTR 
OSEC- 8D 3B 08 2660 STA FLD.FLAG 
O9EF- 88 2610 .1 DEY 
O9FO- B1 FD 2620 LDA (P1),Y MOVE PICTURE TO BUFFER 
09F2- 99 40 08 26 0 STA PICTURE.BUF,Y 
OSF5- 640 TYA TEST FOR END 
P6= DO F7 2050 : NE ae ae 
09F8- 8G 3h 08 2660 STY REPEAT.CNT y IS 0 
0OFB- 0 DEY = SFE 
O$FC~ 20 9B OA ® 0. JSR PRUS. CLEAR tLe VARIABLES 
2 90 SEs eases Sesser ocesesoansweaene 
Ah * PARSE THE PICTURE 
PRUS .NEXT 
OOFR- c8 0 INY NEXT CHAR 
00- CC 33 08 2740 CPY STR.LEN DONE? 
OA03- FO 2190 BEQ .1 . YES 
OA05- B9 40 08 2760 LDA PICTURE.BUF,Y GET A CHAR 
OAOB- 84 FB. 2770 STY TEMP2 SAVE PICTURE PNTR 
OAOA- 20 1D OA 2780 JSR LOOKUP 
OAOD- AN FB 2790 LDY TEMP2 RESTORE PICTURE PNTR 
OAOF- 4c FF 09 2860 JMP PRUS.NEXT 
OA12= AD 39 08 2810.1 LDA INPUT.FLAG 
OA15- DO 3 2820 BNE .2 
OA17- 4C EB DA 2830 JMP AS.CROUT 
OA1A- 4C BE 09 2840 g2.___ SMP PRINT. END HANDLE ; AT END OF STATEMENT 


2870 Smow nnn nen we enn een ewe e ene neewne 
OA1D=- 8D 38 08 SRO L LOOKUP or CHAR SAVE KEY 


OA22= C8 2900 .1 INY 

OA23- C 2910 INY 

OAPH- C 20 INY NEXT ENTRY 

OA25- B By OA 2930 LDA TBL.BASE,Y 

OA28- FO & 29 BEQ .7 END OF TABLE 

OA2A- CD 36 08 7950 CMP CHAR ONE WE WANT? 

OA2D- DO F3 0 BNE .1 O,NEXT ENTRY 
2 72 ®.—-FOUND CHAR IN TABLE-------~-- 

CPY #L.BOTH NEW FIELD? 


OA31- 48 2320 BCC ,2 ee MAYBE NOT 
0 LDA #0 START A NEW FIELD 


vei 8D 3B 08 3010 =H FLD. FLAG 


QA3A- AD 3B 08 3030 .2 LDA FLD.FLAG BEGINNING OF FIELD? 
OA3D- DO 0 : NO 
OA3F- A5 FB «3050 LDA TEMP2 
OAhi- 8D 30 08 3060 STA FLD. START 
OASN- ER 3B 070 INC FLD.FLAG 
0 ®---PRINT WHATEVER'S NEEDED------ 
OAST= CO 15 3090 «3 CPY #L. EITHER 
OAK9- 90 07 100 BCC .4 .+.ONLY TRY PRT.STR.IF. NEEDED 
OANB 20 72 OB 3110 JSR PRT. NUM. IF .NEEDED 
OaShe $0. Ob 130 Bee *S BOTH ONLY TRY PRT.NUM. IF. NEEDED 
150 §—-GET ROUTINE ADDRESS---—-—--—— 
OA55- BQ BO OA 3160 .5 LDA TBL.BASE+2 


| 0 PHA Por ADDRESS ON STACK 
0459- BO BS OA 3150 LDA TBL.BASE+1,Y 
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48 3190 PHA 
AC 34 08 3200 LDY REPEAT.CNT GET THE COUNT 
DO 01 ©3210 BNE .6 COUNT IS NON-O 
C8 3220 INY COUNT IS 0, SO MAKE IT 1 
AQ 00 3230 6 LDA #0 CLEAR REPEAT.CNT 
8D 34 08 32 STA REPEAT.CNT 
AD 38 08 3250 LDA CHAR GET THE ORIGINAL CHARACTER 
60 3260 RTS JUMP TO ROUTINE 
270 #---CHAR NOT IN TABLE------------ 
AD 38 08 3280 .7 LDA CHAR GET CHAR AGAIN 
49 30 290 EOR #'0 CHECK FOR DIGIT 0-9 
co OA 300 CMP #10 
BO 20 10 BCS 9. .»NOT A NUMBER 
8D 3D 08 3320 STA TEMP3 
AD 34 08 3330 LDA REPEAT.CNT | PREVIOUS * 10 
ry 3300 ASL ai 
D 34 08 3325 ADC REPEAT.CNT #5 
OA 33 0 ASL #10 
6D 3D 08 3380 ADC TEMP3 + DIGIT 
8D 34 0 3390 STA REPEAT.CNT 
AD 3B 0 0 LDA FLD.FLAG BEGINNING OF FIELD? 
DO 08 = 3410 BNE .8 .. eNO 
A5 FB 3420 LDA TEMP2 YES, SAVE STARTING POSN 
8D 3C 08 3430 STA FLD. START 
EE BO 3 0 INC FLD.FLAG 
0 5 
460 #---NOT IN TABLE NOT A DIGIT---- 
20 4F OC 470 .9 JSR PRT.STR.IF.NEEDED 
20 72 OB 4 . JSR ORT NUM. IF. NEEDED 
3000 PRUS .CLEAR 
2 01 3 10 LDX #1 
E 2D 08 3520 STX W Wz 1 
SE OE 08 3eh0 arx D — 
E 00 0 30 0 STX DECFLG NO DECIMAL 
E 2F 08 3560 STX SIGN.CHAR1 
8E 31 08 3570 STX FOUND.NUM FLAG IF # HAS BEEN FOUND 
te ae 
E 32 0 3200 STX FOUND.CHAR 
on BS 
39 0 # TABLE IS IN THREE SECTIONS: 
640 # 1ST SECTION (BEFORE L.EITHER) ARE FOR 
3650 FOR DESCRIBING NUMERIC FIELDS, AND CAN 
3660 : TERMINATE A STRING FIELD. 
3e 0 & 2ND SECTION (BTWN L.EITHER & L.BOTH) IS 
3690 # FOR DESCRIBING STRING FIELDS, AND’ CAN 
3700 . TERMINATE A NUMERIC FIELD 
3148 & 3RD SECTION (AFTER L.BOTH) CAN TERMINATE 
130 . BOTH KINDS OF FIELDS. 
130 . TABLE FORMAT = #CHAR ADDRESS~1 
0 # END OF TABLE M KED WITH $00 
31 : ir ee a a ee es ee eek ed as ne ee een ens 
3499 “A ein ]2- 
7) 
810 é <> GD GD GP GD GP Ge Ge Ge GD GD GP OD GF OO & OF a aD th ope eh ee > ED GD OD OO ee 
820 TBL.BASE 
830 >TBL "4+", IP.PLUS.MINUS _-#- 
2B 06 0B 0000> .DA #'+!, IP. PLUS.MINUS-1 
3840 >TBL "-",IP.PLUS MINUS -#- 
2D 06 OB 0000> .DA #'-! TP. PLUS .MINUS-1 
850 >TBL * n dP. BER -#- 
23 EA 0A 0000> .DA #'#! TP. NUMBER-1 
3860 >TBL "#" TP. ASTERISK ~#- 
2A EC OA 0000> .DA #'@! Tp, ASTERISK-1 
387 >TBL nzm iP. ZERO -#- 
5A E7 OA 0000> -DA #'Z TP. ZERO-1 
3880 >TBL " IP. PO ~#- 
2E 0C 0B 0000> DA fi IP. POrNT=1 
3890 >TBL ", nip. COMMA -$- 
2C OF 0B 6000> .DA #', 4) 1. COMMA=1 
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FONT DOWNLOADER & EDITOR ($39.00) 


Turn your printer into a custom typesetter. Downloaded characters remain active while printer is powered. 
Use with any Word Processor program capable of sending ESC and control codes to printer. Switch back and 
forth easily between standerd and custom fonts. All special printer functions (like expanded, compressed etc.) 
apply to custom fonts. Full HIRES screen editor lets you create your own characters and special graphics 
symbols. Compatible with many parallel printer \/F cards. User driver option provided. For Apple Il, Il+, //e. 
Specify printer: Apple Dot Matrix, C.ltoh 8510A (Prowriter), Epson FX 80/100, or OkiData 92/93. 


NEW ! !! The Font Downloader & Editor for the Apple Imagewriter Printer. For use with 
Apple il, Il+, //e (with SuperSeria!l card) and the new Apple //c (with builtin serial interface). 


NEW !!! FONT LIBRARY DISKETTE #1 ($19.00) contains lots of user-contributed fonts for all 
printers supported by the Font Downloader & Editor. Specify printer with order. 


DISASM 2.2e - AN INTELLIGENT DISASSEMBLER ($30.00) 


Investigate the inner workings of machine language programs. DISASM converts machine code into meaningful, 
symbolic source. Creates a standard text file compatible with S-C, LISA, ToolKit and other assemblers. Handles 
data tables, displaced object code & even lets you substitute your own meaningful labels. (100 commonly used 
Monitor and Pg Zero names included ) An address-based triple cross reference table is provided to screen or 
printer. DISASM is an invaluable machine language learning aid to both novice & expert alike. Don Lancaster 
says DISASM is “absolutely essentiai” in his new ASSEMBLY COOKBOOK. For entire Apple I! family including the 
new Apple //c (with all the new opcodes). SOURCE CODE available for an additional $30.00 


S-C Assembler (Ver 4.0 only) SUPPORT UTILITY PACKAGE ($30.00) 

* SC_XREF - Generates a GLOBAL LABEL Cross Reference Table for complete documentation of source listings. 
* SC GSR - Global Search & Replace eliminates teadious manual renaming of labels. Search all/part of source. 
* SC.TAB - Tabulates source files into nest, readable form. SOURCE CODE available for an additional $30.00 


The ‘PERFORMER’ CARD ($39.00) 

Plugs into any slot to convert s ‘dumb’ centronics-type printer I/F card into a ‘smart’ one. Command menu 
eliminates need to remember complicated ESC codes. Features include perforation skip, auto page numbering 
with date & title. Includes iarge HIRES graphics & text screen dumps. Specify printer: MX-80 with 
Graftrax-80, MX-100, MX-80/100 with Graftraxplus, NEC 8092A, C.itoh 8510 (Prowriter), OkiData 82A/G3A 
with Okigraph & OkiData 92/93. SOURCE CODE: $30.00 


FIRMWARE FOR APPLE-CAT: The ‘MIRROR’ ROM ($25.00) 


Communications ROM plugs directly into Novation's Apple-Cat Modem card. Basic modes: Dumb Terminal, 
Remote Console & Programmable Modem. Features include: selectable pulse or tone dialing, true dialtone 
detection, audible ring detect, ring-back, printer buffer, 80 col card & shift key mod support. Uses superset of 
Apple's Comm card and Micromodem |! commands. SOURCE CODE: $50.00 


RAM/ROM DEVELOPMENT BOARD ($30.00) 
Plugs into any Apple slot. Holds one user-supplied 2Kx6 memory chip (6116 type RAM for program development 
or 2716 EPROM to keep your favorite routines on-line). Maps into $CnO0-CnFF and $C800-CFFF. 


NEW !!! C-PRINT For The APPLE //c ($99.00) 

Connect standard parallel printers to an Apple //c. C-PRINT is a hardware accessery that plugs into the 
standard Apple //c printer serial port. The other end plugs into any printer having a standard 36 pin 
centronics-type parallel connector. Just plug in and print! High speed data transfer at 9600 Baud. No need to 
reconfigure serial port or load software drivers for text printing. 


Avoid a $3.00 postage/handling charge by enclosing full payment with order. (Mastercard & VISA excluded) 
RAK-WARE 41 Ralph Road W. Orange NJ 07052 (201) 325-1885 


CEEECEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEES 
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15= 3900 L.EITHER aCe ta 


OACC- 3910 >TBL ;IP. ACR -$- 

OACC- 41 14 OB 0000> .DA #'A! TP. ACR-1 

OACF- 3920 >TBL ncn IP. AC -$- 

OACF- 43 14 OB 0000> .DA #'c! TP. ACR-1 

OAD2- 3930 >TBL "RY IP. AC -$- 

OAD2- 52 14 OB 0000> — DA FART ADP ACR 1 

OAD5- 950 >TBL nim IP.QT -#$- 

OAD5- 27 23 0B 0000> wDA #°*! TPlQT-1 

OADB~ 960 >TBL "/" TP. SLASH -#$- 

OAD8- 2F 44 OB 0000> .DA #'/' IP. SLASH-1 

OADB- 970 >TBL "X" IP. x -#$- 

OADB- 58 47 OB 0000> .DA #'X! IP. xX-1 

OADE- 980 >TBL nH" IP. HTAB ~#$- 

OADE- 48 50 0B 6000> .DA #°H! IP. HTAB-1 

OAR 1- 3990 >TBL *v" IP.VT -#$- 

OAE1- 56 54 OB 0000> .DA #'V! IP. VTAB-1 

OAEA- 4000 >TBL ">" IP. GREATER ~#$- 

OAE4- 3E 60 OB 0000> .DA #*>! IP. GREATER-1 

OAE7- 00 40 10 : .HS 00 END OF TABLE 
4030 # Z -= Digit position marker, zero fill 
040 # # == Digit position marker, blank fill 
sorD ; # ~ Digit position marker, star fill 
4070 IP.ZERO 

OAEB- Ag 30 HOBO LDA £0 USE 0 FOR FILL CHAR 
4100 IP.NUMBER 

OAEB- A9 20 =: 4110 LDA #* ° USE BLANK FOR FILL CHAR 
4120 IP. ASTERISK 

OAED- 8D 37 08 4130 STA FILL.CHAR SAVE AS FILL CHAR 

OAFO- 20 10 OB 4140 .1 JSR STA.WBUFX. INX 

OAF3- EE 31 0 4150 INC FOUND.NUM FOUND A DIGIT 

fi Coed an iii 

OAFA- AD 00 08 4180 LDA DECFLG HAD DECIMAL PT? 

OAFD- FO 0 4190 BEQ . NO 

OAFF- EE 2E 08 4260 INC D YES 

a rd ee 

OBO O EA 4230 BNE .1 NEXT ONE 

OB06- 60 4D 
(a 


¢ 
4260 7 + -- Sign position marker ee + or -) 


43 4 * - -- Sign position marker (prints space or -) 
4290 IP.PLUS.MINUS 
OBO7=- 8D 2F 08 4300 STA SIGN.CHAR1 SAVE SIGN CHAR 
OBOA= 4C 10 OB i 28 i JMP STA.WBUFX.INX 
i; : . - == Decimal position marker 
4350 IP.POINT 
OBOD- EE 00 08 nore P INC DECFLG FOUND A DECIMAL POINT 
f : : ‘ = Puts a comma in a number 
4400 IP.C 
4410 STA.WBUFX.INX 
OB10=- 9D 00 02 4420 STA WBUF,X SAVE CHAR 
0B13- E8 138 INX 
OB14= 60 oH : RTS 


4460 # A -- String field, left justified 
4470 ® C -- String field, centered 
44 80 : R -- String field, right justified 


WNGO: Sosseee cece eee eee 
OB15- EE 32 08 4500 IP.ACR INC FOUND.STR FOUND A STRING 
OB18- 8p 36 08 4510 STA FOUND.CHAR SAVE THE CHAR 
OB1B- 9 4520 TYA 
OB1C=- 18 4530 CLC 
OB1D- 6D 35 08 45 ADC FOUND.LEN ADD LENGTH TO REPEAT COUNT 
OB20- 8D 35 08 iee0 STA FOUND. LEN 
OB23= 60 4560 RTS 
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4580 # ' «= Start of embedded string 
1220 femme omen meme ew owe ew we wwe wee we 
4600 IP.QT 
OB24—- A6 FB 4610 .1 LDX TEMP2 X = PICTURE PNTR 
OB26- E8 4620 .2 INX 
OB27= BD 40 08 4630 LDA PICTURE. BUF,X GET CHAR 
OB2A~ C9 2 4640 CMP #' APOSTROPHE ? 
OB2C- DO 0 4650 BNE .3 eeeNO, PRINT IT 
OB2E- BD 41 08 4660 LDA PICTURE.BUF+1,X 
OB31i= C9 2 1970 CMP #'' TWO ar ae ne che IN A ROW? 
0B33=- DO 0 4680 BNE .4 ee MEANS END OF LITERAL 
OB35- E8 4690 INX Tr yES PRINT APOSTROPHE 
0B36- 20 5C DB 4700 .3 JSR AS.COUT 
OB39=- 4C 26 OB 4710 JMP .2 
OB3C- 8 4720 .4 DEY REPEAT COUNT 
OB3D- DO E5 nie BNE .1 REPEAT THE STRING 
OB3F- 86 FB 4740 STX TEMP2 NEW PICTURE PNTR 


0 .5 JMP AS.SYNERR 
k 770 a Oe Or Om 8 © © OS @ OOS © OO © SOSSSOO 22 
4780 ® / #- Print n carriage returns 
1420 # X -- print n spaces 


OB42=- 4C C9 DE 


4 Weoe oe eee a ee eee eee ae 
4810 IP.SLASH 
OB45= AQ OD 4820 LDA #$0D CR'S 
OBUT7= 2C 1830 ~HS 2 (SKIP NEXT 2 BYTES) 
OB4Y8=- AI 20 48HO IP.X LDA #$20 BLANKS! 
OB4A=- 20 5C DB 4850 .1 JSR AS.COUT PRINT THE CHAR 
OB4D= 88 4860 DEY 
OBYE- DO FA 1809 BNE .1 
OB50- 60 NBO . RTS 
4900 # H -- HTAB to column n 
4910 *® V == VTAB to line n 
O20: @eseccccncecceccccecccacecscussues 
4930 IP.HTAB 
OB51—= 88 hg DEY 
OB52=- 84 24 1326 STY MON.CH HTAB 
OB54—- 60 i . P RTS 
4380 IP. VTAB 
0B55- 88 4 te DEY 
OB50- CO 18 5000 CPY #24 
fee rt o4 ae a | OUT OF RANGE 
OB5B- 4C E1 OC 5030 JMP DP.VTAB 
OB5E- 4C 99 E1 eh Ca JMP AS.ILLERR ILLEGAL QUANTITY ERROR 
5060 # > «= CLEAR TO END OF LINE 
Dake @ >> -=- CLEAR TO END OF SCREEN 
5080 Seawe nemo meen nem eemeeemmnemeowne 
5090 IP.GREATER 
OB61—- A FB 5100 LDY TEMP2 
0B63—- BO 41 08 5110 LDA PICTURE.BUF+1,Y 
OB66- C9 3E 120 CMP #'>! 
OB68- FO 03 ate BEQ .1 ««e CLEAR TO END OF SCREEN 
5140 #---CLEAR TO END OF LINEo------<--— 
OB6A= 4C 9C FC 2170 JMP MON .CLREQL 
160 ®2.e-CLEAR TO END OF SCREEN------- 
OB6D=- E6 FB pia 1 INC TEMP2 
OB6F—- 4C 42 FC 4 a JMP MON .CLREOS 
2380 P PRT .NUM.IF.NEEDED 
OB72- 31 08 5210 LDA FOUND.NUM HAS # BEEN FOUND? 
BErae FO 15 EN a | NO 
0B73— rf 52 PHA SAVE Y 
Sere= £3 dG 2220 igh TNPUTAFLAG 
OB7E- 20 gD OB 2510 JSR PRINT. NUM PRINT 
OB81- 4C 87 OB 5280 JMP . 
OB84- 20 FF rF 5290 .2 JSR INPUT. NUM 
gc as stig? Rusvone 
OB89- 20 9B OA 2330 JSR PRUS.CLEAR 
OB8C- 60 5330 .1 RTS 


Apple Assembly Line....January, 1985.....Copyright (C) S-C SOFTWARE....Page 21 


BANG Woe ee eee eee eee 
$350 PRINT. NUM 
OBBD- A9 00 =_: 360 LDA #0 PUT $00 
OB8F- 9D 00 02 5370 STA WBUF,X AT END OF STRING 
OB92- 20 BE DE 5380 JSR AS.CHKCOM MUST HAVE COMMA 
OB9e- 20 FF FF ; 0 JSR bp EVALUATE GET EXPRESSION 
OB9A- 8D 3A 08 5410 STA ZERO.CHAR 
sie 
Suu0 PRT.NUM.1 = 
guap 43 og 08 Susp ips ogc. stm 
OBA2=- AD 2F 08 5470 LDA SIGN.CHAR1 SIGN IS - 
OBAS- FO 03.54 BEQ .1 NO SIGN CHAR 
OBA7- EE 2D 08 5490 INC W RESERVE PLACE FOR SIGN 
5500 8 - CONVERT VALUE INTO FOUT.BUF-- 
OBAA- AD 2D 08 5510 .1 LDA W 
OBBD. 20 FE EF 2230 JSR FOUT 
5540 #---FILL IN THE PICTURE--------- 
OBB3- A2 00 5550 LDX #0 INDEX INTO WBUF 
OBB5- AO 00 5560 LDY # INDEX INTO FBUF 
OBB7- 8C 00 08 5570 STY DECFLG USE FOR DIGITS FLAG 
OBBA- BD 00 02 5580 .2 LDA WBUF,X GET CHAR FROM PICTURE 
OBBD- FO 5D 2290 BEQ .10 END OF PICTURE 
OBBF- C9 2C 0 CMP #', COMMA? 
or ae an Re 
OBCH- AD 00 08 3630 LDA DECFLG ANY DIGITS BEFORE THIS? 
OBC9- AD 37 08 5650 LDA FILL.CHAR ...NO, BUT PrEiNE IF FILL 
OBCC- C9 20 5660 CMP #' ¢ IS NON-BLANK. 
OBCE- DO EA 5670 BNE .2 .». NOT BLANK SO ZEEAVE IN THE COMMA 
Beno 9D FF 01 eae STA \ WBUF-1,X + COVER COMMA WIT BLANK 
5700 #---CHECK FOR PICTURE SIGN---~--- 
OBD - 20 2 oc 5710 3 JSR E PRUS. SGN IF Pun gp PROCESS 
5730 #-—-PICTURE IS DIGIT OR DECPT---- 
OBDA- B9 03 08 5740 LDA FOUT.BUF,Y | GET CHAR FROM VALUE STRING 
OBDE- BO 03 B4e0 BNE *2°° SPatO. 
OBE1- AD 37 08 5770 LDA FILL.CHAR a; -YES, USE FILL CHAR 
OBE4- 4 5780 .5 PHA SAVE FOU? OR FILL. CHAR 
Sr 3 BB BE oe alae 
OBE9- AD 2F 08 5810 LDA SIGN.CHAR1 IS THERE A SIGN IN FORMAT? 
OBEC- DO 13. ~+=—- 5820 BNE . ++ YES, SKIP THE SIGN 
OBEE- BD 01 02 28 30 LDA WBUF+1,X INSTALL SIGN 
OBFl- C9 2C 0 CMP #', (uid ESs NEXT PIC. GN ARE Re COMMA) 
OBF3- DO 06 5850 BNE .6 ...NOT COMMA 
OBF5~ AD 37 08 5860 LDA FILL.CHAR »..COMMA, SO COVER WITH FILLER 
OBFB- 20 10 OB 2870 JSR STA. WBUFX, INX 
OBFB- B9 03 08 5880 .6 LDA FOUT.B GET SIGN CHAR AGAIN 
OBFE- 20 10 OB 5890 7 JSR STA. wBUFk. INX 
0c01- 68 5900 . PLA GET FOUT OR FILL CHAR BACK 
0C02~ C8 5910 INY ADVANCE FOUT FNTR 
00 < cc 3F 08 5920 cPy INDEX END OF FOUTBUF? 
OCO8- CD 37 08 2310 CMP FILL.CHAR IF WE INSTALLED A DIGIT 
OCOB- FO AD 5990 BEQ .2 WE MUST SET THE DIGITS FLAG 
OCOR- FO a9. 2670 BEO “2” stGyes 
0C1 1 EE 00 08 23 bo INC DECFLG FOUND A DIGIT 
2060 #---END OF FOUT.BUF-------------- 
= 2 J ; 
$030 #.--END OF FOUT OR PICTURE------- 
OC1C= AO 00 O10 .10 + LDY #0 
OC1E- B9 00 02 6050 11 LDA WBUF,Y 
0C21- FO 0 060 BEQ .12 
9C23- 20 5C DB £88 JSR AS.COUT PRINT IT 
0C27- DO FS 090 BNE .11 ALWAYS 
0C29- 60 6100 .12 RTS 
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6120 PRUS.SGN 


OC2A- C9 2B. —_: 6 130 CMP €'+ SIGN? 
O0C2C- DO OD ~—-6 140 BNE .1 NO 
OC2E- E8 6 0 INX 
OC2F- AD 02 08 6160 LDA DAC. SIGN 
0C32- 10 17 6170 BPL .2 - SIGN ALREADY + 
oc36- £8 ee ot Cy00 Leh dpuF-1,x 
0639- HO 10 g4 0 BNE .2 *” ALWAYS 
OC3B- C9 2D =. 6210 «1 CMP #'- =? 
ce ne 
OCHO- AD 02 08 Sit LDA DAC. SIGN 
OC43- 30 06 6250 BMI .2 SIGN ALREADY - 
OC45- AD 37 08 6260 LDA FILL.CHAR 
oc4B- 9p FF 01 6270 STA WBUF-1,X BLANK OUT SIGN 
OCHB- 280 .2 CLC 
OCuC- 60 6290 RTS 
OC4D- 38 6300 .3 SEC 
OCHE- 60 §310 
20 Becwmncemnnecn wwe eewwe ewww owoewne 
6330 PRT.STR.IF.NEEDED 
OC4F- AD 32 08 6340 LDA FOUND.STR HAS STRING BEEN FOUND? 
0C52- FO 15 9 320 BEQ .3 NO 
OC54- 9 60 TYA 
0C55- 48 3 0 PHA SAVE Y 
OC56- AD 39 08 6380 LDA INPUT.FLAG 
0C59- FO 63 0 EQ . 
OC5B- 20 6A 0C 6460 JSR PRINT. STR 
OC5E- 4C 64 OC 6410 JMP .2 
OC61- 20 FF FF 6420 .1 JSR INPUT.STR 
OC64- 6 6430 .2 PLA 
0C65= A 64 TAY RESTORE Y 
OC66- 20 9B OA 6450 JSR PRUS.CLEAR 
0C69- 60 6460 3 RTS 
TH PRINT. STR 
OC6A- AQ 20 =‘ 6490 LDA #$20 
OC6C- 8D 37 08 6500 STA FILL.CHAR 
OC6F- 20 BE DE 6510 JSR AS.CHKCOM MUST HAVE COMMA 
0C72- 20 7B DD 6520 JSR AS.FRMEVL GET EXPRESSION 
0C75= 20 FD E5 6530 JSR AS.FRESTR GET ADR AND LEN 
O0C78- 86 FO «65 STX P2 
OC7A- 84 FA 6550 STY P2+1 
6560 @asecpec eee cette c ete eds 
6570 PRINT.STR. 1 
OC7C= 48 6580 PHA SAVE LENGTH 
OC7D- 38 6590 SEC LENGTH IS INA 
OC7E- ED 35 08 0 SBC FOUND. LEN BTRACT FIELD LENGTH 
OC81- FO OF 6610 BEQ .2 .« SAME, SO OKAY 
0C83- 90 OD 6620 BCC .2 .. EXP 1S SHORTER THAN FIELD 
6630 #.--FIELD OVERFLOW-----------~.-- 
OC85- 68 0 PLA DISCARD LENGTH 
OC86= AC 35 08 6650 LDY FOUND. LEN GET FIELD LEN 
OC89= A9 2A = 6 660 18 OVERFLOW CHAR 
OC8B- 20 5C DB 6670 1 JSR AS.COUT 
OC8E- 0 DEY 
OC8F- DO FA 6690 BNE .1 
0C91- 60 6700 RTS 
6710 #.-- JUSTIFY IN FIELD--------- 
0C92- 49 FF 20 .2 EOR #$FF GET POSITIVE # 
OCOu- A 6730 TAY 
0C95- C8 6740 INY 
0C96- 8c 5 08 6790 STY FOUND. LEN 
0C99- 0 0 LDA FOUND. CHAR 
oc9c- co 41 6770 CMP #°A LJ FIELD 
OC9E- FO 16 6780 BEQ .5 
OCA0=- C9 4 6790 CMP #'C CJ FIELD 
OCA2= FO 0 6800 BEQ .4 
6810 #---RIGHT JUSTIFY------~-------.- 
OCA4= 20 D4 OC 6820 JSR PRINT.Y.SPACES 
OCAT7- 68 66 0 PLA RESTORE STRING LEN 
OCA8~ 4c co 0c 6840 JMP PRT.STR PRINT STRING 
6850 #---CENTER JUSTIFY --------------- 
OCAB- 98 6860 .4 TYA # OF SPACES 
OCAC- 68 0 LSR DIVIDE BY 2 
OCAD- A 6880 TAY # LEADING BLANKS 
OCAE- 69 00 6890 ADC #0 +1 IF IT WAS ODD 
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OCBO- 8D 35 08 6900 STA FOUND.LEN  # TRAILING BLANKS 
OCB3- 20 DA 0C 9910 JSR PRINT.Y. SPACES 
20 #---LEFT JUSTIFY ----------------- 

OCB6- 68 6930 5 PLA GET STRING LEN 
OCB7- 20 CO 0C 6940 JSR PRT.STR PRINT IT 
OCBA- AC 36 08 6950 LDY FOUND.LEN TRAILING SPACES 
OCBD- 4c Dh OC 69 0 JMP PRINT.Y. SPACES 

230 PRT. STR 
OCCO- 8D 36 08 6990 STA EQUND. CHAR LEN OF STRING 
occa. C8 tio .t)SCNY ee 
Sccs- Bo 8 7050 eg FPA 
OCCB- B1 F9 Oho LDA (P2),Y GET CHAR 
OCCD- 20 5C DB 7050 JSR AS. cour PRINT IT 
OCDO=- 4C C5 OC 7060 JMP .1 
OCD3- 60 1970 2 RTS 

7090 PRINT.Y. SPACES 
OCD4- 98 7100 TYA TEST COUNT 
OCD5- FO 0 {110 BEQ .2 +e ZERO, EXIT NOW 
OCD7- AD 37 08 7120 LDA FILL. CHAR 
OCDA- 20 5¢ DB 7130 «1 JSR AS.COUT 
a oe 
OCEO- 60 1180 .2 RTS — 
OCE1- 85 2 1189 idles MON .CV 
OCE3- fe SR FC 1200 . JMP MON VTABZ 


In fact, thanks to Classical Computing and Easy to use, Speak Up! will make your com- 
Speak Up!™, it now costs only $39.95 to turn puter areal chatterbox — without sending you 
your Apple li+* into the most talkative micro to the poorhouse. 
enithe plore Checks are accepted without sgmmm 
thesis program for your Apple I+ computer. 
and doesn't fill up an expansion slot. You don't ‘except from North Carolina 


need a B:S. in electrical engineering to use it, 

and making back-up copies is simple. There's At S 39.95, 

nothing else to buy. And, best of all, text-to- 7 

speech conversion makes it simple to make talk really Is cheap! 
your BASIC programs talk! (Apple + is a registered trademark of Apple Computer, inc.) 


Classical Computing, Inc. 


Chapel Hill, NC 27515 
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Symbol Table Source Maker......Peter McInerney and Bruce Love 


When developing a very large program in separately assembled 
Stages, it is nice to be able to carry forward the information 
in the symbol table of one section into the equates section to 
later section. You might do this as a normal part of 
development or as response to a bug detected in an earlier 
stage which forces some re-assembly. We designed this utility 
program to take all the hard work out of the process of 
building an equate file from a symbol table. 


After an assembly, BRUNning the following utility will cause 
whatever source is in memory to be replaced by a series of .EQ 
lines constructed from the current symbol table. All global 
labels are included, in numerical order. The generated source 
lines can be saved or merged in the usual fashion. 


The plan of the program falls into three steps. First the 
existing symbol] table is sorted into numeric order by the value 
of each symbol. Next a line corresponding to each symbol is 
constructed and merged into the source code. Finally the 
source lines are renumbered starting with 1000 using an 
increment of 10, and control is passed back to the S-C Macro 
Assemblerc. 


We originally wrote our program based on Version 1.1 of the S-C 
Macro Assembler. Version 2.0 differs in that each symbol value 
uses four bytes rather than two, and the RENUMBER routine is in 
a different location. Bob Sander-Cederlof added some code to 
handle Version 2.0, and that version is listed here. All the 
changes that need to be made to use our utility with Version 
1.1 are controlled by .DO-.ELSE-.FIN sets, so that you only 
have to change line 1030 to assemble the other version. Since 
the following listing was made with the CON listing option, the 
code between .ELSE and .FIN is shown as non-assembled lines; 
this allows you to type in both versions of the program. 


After an assembly, the symbol table consists of 26 chains of 
symbols. A hash table of 26 pointers contains the beginning of 
each of the 26 chains. There is one chain for each letter of 
the alphabet, and symbols are assigned to a chain based on the 
first letter of the symbol name. Within each chain, the 
symbols are linked together in alphabetical order. The first 
two bytes of each symbol entry are a forward pointer to the 
next symbol in the chain, or $0000 if it is the end of the 
chain. If there is no chain for a particular letter, that 
pointer in.the hash table will be $0000. 


The value of the symbol is in the next two or four bytes 
(Version 1.1 or 2.0, respectively). The high byte of the value 
is first, the low byte last. The byte following the value 
contains the length of the symbol name in the lower six bits. 
The length will be a number between 1 and 32, or $01 and $20. 
Following the length byte are the characters of the name 
itself. Some other information is stored in the table, 
including various flags, local labels, and any macro 
definitions which were in your program; however, we are not 
concerned with these in our program. 


Apple Assembly Line....January, 1985.....Copyright (C) S-C SOFTWARE....Page 25 


The program begins by setting the output hook to point to our 
routine named MYCOUT. Any characters that are "printed" 
through the monitor's COUT routine will be routed to MYCOUT, at 
lines 2980-3070. MYCOUT merely stores the characters in 
successive positions of a buffer we put at $280. Lines 
1350-1380 zap any source program still in memory, in 
preparation for adding the new .EQ lines. 


Since every symbol carries a pointer, we decided to simply 
re-string them on a new chain in numeric order by value. Lines 
1390-2040 build this new chain. Lines 1390-1490 and 1990-2040 
step through each of the 26 alphabetical-order (A-O) chains. 
The numerical-order (N-O) chain is built with the pointer in 
ROOT pointing at the largest value, each symbol's pointer 
pointing at the next smallest value. When we find an A-O chain 
which is not empty, lines 1500-1980 chomp through the chain 
finding the right place in the N-O chain for each symbol. 


Once the symbols are all strung on the N-O chain, lines 
2050-2940 use the N-O chain to generate source lines for each 
symbol. Lines 2090-2100 check for the possibility of no 
symbols, just in case you are testing us. 


Lines 2110-2210 pick up the value of the symbol (two or four 
bytes worth) and push it on the stack, low byte first. The 
loop actually pushes the byte following the value as well, 
because it saved a few program bytes to include it in the loop. 
Line 2220 pulls that byte back off. 


Lines 2220-2280 pick up the characters of the symbol name and 
“print” them. Remember that the print hook points to MYCOUT, 
so that the characters are really placed in WBUF starting at 

WBUF+3. (The locations WBUF through WBUFt2 are reserved for 

the line length and line number.) 


Lines 2290-2360 generate enough blanks to tab over to column 
25. If the symbol is longer than 25 characters, only one blank 
is generated. All of the blanks are squeezed into a single 
compressed blank token ($80 + # of blanks). We put this into 
WBUF by calling MYCOUT] to avoid the AND #$7F at the beginning 
of MYCOUT. 


Lines 2370-2420 “print” the string of characters “ .EQ $", 
which are stored in backwards order in line 3090. 


Lines 2430-2610 “print" the value of the symbol in hexadecimal. 
Since the value may have up to three bytes of leading zeros, 
there is code here to suppress those bytes. 


Lines 2620-2720 terminate the source line in WBUF with a $00 
code, and store the line length in the first byte position. 
Now the line is ready to be added to the source code being 
built up. 


Lines 2730-2790 make room for the new source line by lowering 


the pointer PRG.BEG, which points at the start of the source 
code. We are adding the source lines starting with the highest 
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value, which will be at the end of the source program, and 
working down to the lowest value at the beginning of the source 


program. 


Lines 2800-2850 copy the line into the hole we just made. Note 
that we have not filled in a valid line number yet. 


LInes 2860-2940 promote the ROOT pointer to the next symbol in 
the N-O chain. If there are no more symbols, line 2950 calls 
on the RENUMBER subroutine inside the S-C Macro Assembler to 
put real line numbers in each line. The point at which 
RENUMBER is entered is just after a series of three JSR's, all 
to the same address. The instruction we branch to is a “CPX 
#$06". We are pointing this out here just in case you have a 
version of the S-C Macro Assembler with a slightly different 
position for the RENUMBER subroutine. Of course, you could 
omit line 2950 and just remember to type "REN" after running 
our program. 


Finally, line 2960 restores the output hook to the 40-column 
screen output. This will not be what you want if you are uSing 
an 80-column card. If you are doing that, we suggest saving 
the output hook way back at the beginning before stuffing 
MYCOUT into it, and then restoring the original value here. We 
didn't do it that way because we were trying every possible way 
to make this whole program fit in only one page. 


One caveat remains. We did not include any test to see whether 
the source code being generated starts to overlap the end of 
the symbol table. If you have a gigantic symbol table, say 
over half of the available memory for source+symbols, you may 
run into this problem. 


When you are uSing this program, be sure you save the source of 
whatever you assembled first. Our program replaces the source 
in memory with the .EQ source lines. Also, realize that the 
symbol table is essentially wiped out by running our program, 
because all the chain links are restructured for numerical 
order. You will have to re-assemble the original program to 
re-create the original symbol table. Of course, if you 
assemble the source lines we generate, you will re-create all 
the global labels of the original program. 


We think you will find many uses for our program, beyond the 
ones which prompted us to write it. We are very proud that we 
managed to fit everything into a single page, but don't let 
that stop you from adding features to fit your own needs. 


1000 *SAVE S.SYMBOL SOURCEROR 


01 (00 VERSO GEG Os 
= ERSION -EQ 1 O=1. 1 1=2. 
iol Sat oT ee te 
: ION oo e-V 2.0 
D64D-= 1060 RENUMBER .EQ $D64D V 2.0 
apbo ~ELS eweV¥ Wn] 
1080 RENUMBER .EQ $D7DA V1.1 
eae -FIN 
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1110 
02- 1120 Al -EQ $02,03 
Oh 1130 a2 “EQ $04;05 
08- 1150 XSAVE .EQ $8 
36- 1160 CSW .EQ $36, 37 
0132- 1150 HASH.TAB EQ $1 2 
0280- 1190 WBUF -EQ $280 
DA- 1210 PRBYTE .EQ $FDDA 
FDED- 1220 COUT “EQ $FDED 
FE93- 1230 SETVID “EQ $FE93 
1250 & PROGRAM POINTERS 
CA- 1270 PRG.BEG =. EQ. $CA,CB 
ic- 12 0 PRG. END SEQ $4C, 4D 
1300 MAKE. SOURCE. FROM. SYMBOL. TABLE 
0800- AQ F2 1310 LDA #MYCOUT GRAB THE OUTPUT HOOK 
a ae a PDA MECOUT 
one be 7 1380 STA CSW+1 
0808- a5 4c 3— 1350 LDA PRG.END EMPTY THE PROGRAM AREA 
opon Ge ga 1378 PDA PRG. END 
OBOE. 82 cB «1300 STA PRG. BEG+1 
1390 #..-SCAN THROUGH HASH TABLE------ 
0810- a2 09 ©1800 LDX #0 
0812- Bg 1410 STX ROOT EMPTY NUMERIC-ORDER CHAIN 
O81h— 86 07 1420 STX ROOT+1 
4430 -e-GET STAPT OF NEXT CHAIN«sssn. 
0816- BD 3 01 WhO 1 LDA HASH. TAB+1,X 
0819- FO 1450 BEO . .». THIS CHAIN IS EMPTY 
O81B- 85 01 460 STA PTR+1 
081D=- BD 32 01 1470 LDA HASH.TAB, X 
OBooe 8G 08 1499 ty SAVE 
~ aes OSITION IN N-O CHAIN--- 
O824- AO 06 {598 nD ARR ERGOT. START SEARCH FROM BEGINNING 
0826- 85 02 ~=«- 1520 STA Al OF NUMERIC-ORDER CHAIN 
gat as oe sup (tom 
082C- Ad 02 1550 3 LDA Al PROMOTE BOTH POINTERS 
O82E- 85 O04 1560 STA A2 TO THE NUMERIC-ORDER CHAIN 
08 30 5 03 1570 LDA Al+1 
OB3i- ad 00 «1290 cnr 40. 
0836- B1 02 1260 LDA fh1),¥ 
a en 
O83A- B1 02 1630 LDA (A1),Y 
083C- 85 0 1640 STA Al+1 
a ae ee 
1670 #---COMPARE A-O WITH N-O VALUE--- 
1680 -DO VERSION +e eV 2.0 
0842- A2 03 1690 a kDX #3 \-BYTE VALUES 
1710 LDX #1 2-BYTE VALUES 
0844 W300 Thc 
0845- 28 isto 7" INY 
0846- B1 02 1750 LDA (A1),Y 
0848- F100 1760 SBC (PTR},Y 
iE en HORE 
O84D- BO DD 1790 BCS .3 .». 4-0 VALUE < N-O VALUE 
1800 #--~INSERT A-O VALUE INTO N-O CHAIN--- 
O84F- AO 00 1810 5 LDY #0 
0851- B1 00 ~—«-1820 LDA (PTR),Y 
0853- AA 18 30 TAX 
O854- a5 02 ~=«1840 LDA A1 
0856- 91 00 1850 STA (PTR),Y 
0858- A5 00 ~—«'1860 LDA PTR 
open ego tB bo ay roe 
OB5D- B] 00 1890 LDA (PTR),Y 
O85F- 4 1960 PHA 
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0860- A5 03. ~—s«:19 LDA Al+1 
Opeke as on 1830 a Be 
ORed- 82 ol 13 STA (A2),Y 
opoB- 8 00 1920 res 
086B- 85 01 1970 STA PTR+1 
O86D- DO BS) ,2 .. NOT END OF CHAIN YET 
1990 ®-—-NEXT HASH CHAIN------------- = 
rie tone a le 
on ya: Ee 2020 ” INX 
08 73- EO 2 2030 CPX #226 26 HASH CHAINS 
0875- 90 9F 2040 BCC .1 ee STILL ANOTHER CHAIN 
e060 © RUN THROUGH NUMERIC-ORDER CHAIN 
2010 8 AMD CREATE A SOURCE LINE FOR EACH SYMBOL. 
0877 - 45 07 2090 LDA ROOT+1 CHECK FOR NO CHAIN AT ALL 
2110 .DO VERSION .eeV 2.0 
087B- a2 0% 2120 8 LDX #4 id 
2180 .8 ELSE #2 _ 
2150 FIN 
an ee oe 
OR oN Rd 2180 ~ PHA , 
0882- C8 2190 INY 
oe Oe 
ORBe eb 2220 PLA 
i ioe a a 
O88A- B1 06 2250.10 LDA (ROOT),Y 
ath 20 ED FD $270 JSR COUT ys 
2 0 #..-TAB TO 559 co Srewenae Beene 
0892- a9 81 2300 LDA #$81 
O894- CO 19 2310 CPY #25 
0896 - BO 05 2320 BCS 11 
OB 38 o FF Salo EOR grr 
089B- 69 9A, 2390 ADC #$9A 
eee ee ee ourPuT rea ee 
O8A0= A2 0% 3380 LDX #4 
O8A2- BD F9 08 2390 .12 ~—=LDA STRING,X 
O8A5- 20 ED FD 2400 JSR COUT 
O8a9- 10 F on38 BEL 12 
7 T  $u50 @---oUTPUT VALUE OF SYMBOL------- 
2h -DO VERSION weeV 2s 
gure ago Shep PE 
O8AE- DO OA 2470 BNE .16 .ePRINT 32-BITS 
a ns ns 
O8B2- DO 06 2500 ett .16 ++ PRINT 24-BITS 
2520 ° px #2 — 
oe nnn 
O8Bb- DO 02 S220 BNE .16 »eePRINT 24-BITS 
chor ae rn 
O8BA- 20 DA FD 2590 .1 JSR PRBYTE 
oe ae 
20 #---AP PEND $63 BYTE------~.....-- 
O8CO- 8A 26 30 TXA APPEND $00 BYTE 
C1 7C 02 6 . Oe hoy oan Ss 
oo a an 
30 ELSE oee¥ 101 
2690 STA WBUF-2,Y 
2700 FIN 
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2710 DEY 
STY WBUF # BYTES IN LINE 
#---MAKE ROQM IN SOURCE AREA----- 
LDA PRG.BEG 
2750 SEC 
SBC WBUF 
STA PRG.BEG 
0 BCS .14 
DEC PRG. BEG+1 
#.--COPY LINE INTO SOURCE AREA--- 


2810 .14 DEY 
O8D7- BY 80 02 2820 .15 LDA WBUF,Y 
STA (PRG. BEG) ,Y 


2840 DEY 
BPL .15 
0 #---NEXT SYMBOL FROM CHAIN------- 


O8DF- C8 2870 INY Y=0 
O8E0- B1 06 28 80 LDA (ROOT) ,Y FROM THE NUMERIC-ORDER CHAIN 


O8E4- B1 06 2910 LDA (ROOT) ,Y 
2920 STA ROOT+1 


BNE .8 e+e NOT END OF CHAIN YET 
O8EC=- 20 4D D6 2950 JSR RENUMBER ~-- END, SO RENUMBER THE LINES 
O8EF- 4C 93 FE 2960 .17 JMP SETVID RESTORE HOOK AND RETURN 


$3 h5 Sinem wn een oem mene w ne ew ene 


O MYCOUT 
Fa #$7F 


INY 
020 -DO VERSION eoeV 2.0 
OBF5- 99 7B 02 3030 STA WBUF-5,Y 
3040 « ELSE eo eV 1.1 
050 STA WBUF-3,Y 
0 IN 


O8F8- 60 eC RTS 
O8F9- 24 20 51 


OBFC- 45 2E 3090 STRING .AS "$ QE." 


100 OO OF O08 OO OOS OHSS OS OOS DOSS SHS HOO 


110 END 


Now you can monitor and control the world (or at least your part of it) with a little help from 


APPLIED ENGINEERING 


12 BIT, 16 CHANNEL, SIGNAL CONDITIONER 


PROGRAMMABLE GAIN A/D 
Alt new 1984 design incorporates the 
latest in state-of-art LC. technologies. 
Complete 12 bit A/D converter, with an 
accuracy of 0.02%! 


16 single ended channels (single ended 
means that your signals are measured 
against the Apple's GND.) or 8 
differential channels. Most all the 
signals you will measure are single 
ended. 

9 software programmable full scale 
ranges, any of the 16 channels can have 
any range at any time. Under program 
control, you can select any of the 
following ranges: + 10 volts, +5V, 
+2.5V, +1.0V, +SOOMV, + 250MV, 

+ TOQ0MV, +S5O0MV. or +25MV. 

Very fast Conversion (25 micro seconds). 
Analog input resistance greater than 
1,000,000 ohms. 

Laser-trimmed scaling resistors. 

Low power consumption through the 
use of CMOS devices. 

The user connector has ¢12 and -12 
volts on itso you Can power your 
sensors, 

Only elementary programming is 
required to use the A/D. 

The entire system is on one standard 
size plug in card that fits neatly inside 
the Apple. 

System includes sample programs on 


as PRICE $319 


8 BIT, 8 CHANNEL A/D 
BC hannets 
8 Bit Resolution 
On Board Memory 
Fast Conversion (078 ms per channel) 


A/D Process Totally Transparent to 
Apple (looks like memory) 


The APPLIED ENGINEERING A/D 
BOARD is an 8 bit. 8 channel, memory 
buffered, data acquisition system, It 
consists of an 8 bit A/D converter, an 8 
channel multiplexer and 8 x 8 random 
access memory. 


The analog to digital conversion takes 
place on a continuous, channel 
sequencing basis. Data ts automatically 
transferred to on board memory at the 
end of each conversion. No A/D 
converter could be easier to use. 

Our A/D boatd Comes standard with 0. 
TOV full scale inputs. These inputs can 
be changed by the aser to 0, -10V, oF 
“SV. ¢5V oF other ranges as needed. 
The user connector has ¢ 12 and -12 
volts on itso vou Can power vour 
SeNSOrs, 


@ Accuracy: 0.4". 
@ Input Resistance: 20K Ohms Typ 


PRICE $129.00 


A few applications may include the monitoring of © flow @ temperature @ humidity 
@ wind speed e@ wind direction @ light intensity @ pressure @ RPM @ soil Moisture 


and many more. 


Our 8 channel signal conditioner is designed for use with both our A/D converters. This 
board incorporates 8 £.£.T. oppamps. which allow almost any gain of offset. For example: an 
input signal that varies from 2.00 to 2.15 volts or a signal that varies from 0 to 50 mV can 
easily be converted to 0-10V output for the A/D. 


The signal conditioners outputs are a high quality 16 pin gold LC. socket that matches the 
one on the A/D’s soa simple ribbon cable connects the two. The signal conditioner can be 
powered by your Apple or from an external supply. 


FEATURES 

@ 4.5” square for standard card cage and 4 mounting holes for standard mounting, The 
signal conditioner does not plug into the Apple, it can be located up to ¥; mile away from 
the A/D. 


@ 22 pin.156 spac ing edge card input connector (extra connectors are easily available ie. 
Radio Shack). 


@ Large bread board area. 
Full detailed schematic included. 


PRICE $79.00 


DIGITAL INPUT/OUTPUT BOARD 


@ Your inputs can be anything from high 
+ speed logic to simple switches. 


Provides 8 buffered outpuls toa 
standard 16 pin socket for standard dip 
obbon cable connection. @ Very simple to program, just PEEK at the 
Powerup reset assures that all outputs data. 

are off when your Apple is turned on. @ Now, on one card, youcan have 8 digital 
outputs and 8 digital inputs each with its 
own connector. The super inpul/output 
board is your best choice for any control 
application. 

The SUPER INPUT/OUTPUT board manual ing ludes many progtams forinputs and outputs, 
A detailed schematic ts included. 

Some applications include: 

Burglar alacm, direction sensing, use with relays to tum on lights, sound buzzers, start 
motor, Control tape recorders and printers, use with digital jovstick, PRICE $69.00 


Features 8 inputs that can be driven 
from TTL logic or any 5 volt source. 


Please see our other full page ad in this magazine for information on Applied Engineering's Timemaster C tock Card and other products for the Apple. 
Our boards are far superior to most of the consumer clectronics made today. AILLC.’s are in high quality sockets with mil-spec. components used throughout. P.C. boards are glass-epoxy 
with gold contacts. Made in America to be the best in the world. All products compatible with Apple Il and //e. 


Applied Engineering's products are fully tested with Complete documentation and avatlable for immediate delivery, All products are guaranteed with ano hassle three year warranty. 


Texas Residents Add 5% Sales Tax 
Add $10.00 If Outside U.S.A. 
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Send Check of Money Order tu: 
APPLIED ENGINEERING 
P.O. Box 798 
Carrollton, TX 75006 


Call (214) 492-2027 
7 am.to11 pm. 7 days a week 
MasterCard, Visa & C.0.D. Welcome 
No extra charge for credit cards 


Short Single-Byte Hex-to-Decimal Printer...Bob Sander-Cederlof 


Inside DOS there exists a subroutine whose purpose is to 
convert a Single byte into a three digit decimal number, and 
print it out. It is called twice from within the CATALOG 
processor: to print the volume number, and to print the number 
of sectors in a file. It isn't very space or speed efficient, 
and has been picked apart in various articles in Nibble and 
elsewhere. The DOS routine is located at SAE42. 


In any case, here is a shorter routine that does the same job. 
I also added a little test routine which exercises the 
subroutine by calling it for every possible value of a byte. 


Lines 1200-1290 are the test routine. It is essentially 
equivalent to: FOR A = 0 TO 255 : PRINT X* “3; : NEXT X. 


Lines 1020-1160 are the conversion and print subroutine. It is 
written as a loop that runs the Y-register from 2 down to Q. 
Line 1030 starts Y=2, and lines 1140-1150 decrement and test Y, 
like BASIC's NEXT Y. 


Another loop keeps subtracting a table entry from the value 
being converted until the remainder is smaller than the table 
entry. The table contains powers of ten. The first time 
through, 100 is subtracted as many times as possible. Each 
time, the X-register is incremented. Since line 1040 started xX 
out as the ASCII code for zero, when the inner loop finishes x 
will have the ASCII code for the next decimal digit of the 
Original value. Line 1120 calls the monitor COUT routine to 
print the digit. 


The next time through the table value that gets subtracted is 
10, and the third and last time through 1 gets subtracted. So 
you see that we first print the hundreds digit, then the tens 
digit, and finally the units digit. 


BLANKENSHIP BASIC 
For the Apple II+, IIe, and IIc 


1000 REM sample listing 
1010 COMPILE 

1020 PERFORM “INPUT DATA" 
1030 REPEAT 

1040 PERFORM “DATA CHECK" 
1050 WHEN A > 100 THEN 
1060 PRINT “BIG NUMBER" 
1070 ELSE 

1080 PRINT "SMALL NUMBER" 
1090 A=A+1 

1100 ENDWHEN 

1110 UNTIL A > 200 

1120 END 


1130 DEFINE “INPUT DATA" 
1140 REM this is a dummy 
1150 REM procedure 
1160 FINISH 


WHILE-ENDWHILE and REPEAT-UNTIL loops 
True IF-THEN-ELSE-ENDIF (Using WHEN) 
PRINT.USING, FILE, MERGE, RANDOMIZE 
PRINT and TAB compands work in HIRES 
80 columns supported on IIe and IIc 
Full Editor with AUTO-NUM and RENUM 
Listings are indented automatically 
Fast SORT, SEARCH and INSTR$ commands 
BOX, BOXFILL , DRAW.USING and SOUND 
10. No more CHR$(4) for DOS’ commands 
11. DEFINE and PERFORM nased procedures 
12. 99% Upward compatible with Applesoft 


ntroductory Offer} @2Z2O postpaid «x 


oney back if not estirely satisfied! 


OANA OO PWN E 


1170 DEFINE “DATA CHECK" 


mail check to: 4 
John Blankenship 4, ov” 1180 REM so is this 
P.O. BOX 47934 3° 1190 FINISH 


Atlanta Ga 30362 v° Full interpreter, not a pre-processor! 
LAST CHANCE TO ORDER AT THIS PRICE 
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The DOS version takes 40 bytes plus a three byte table, and 
mine takes 25 bytes plus a three byte table. It's probably not 
fair to compare 40 to 25 too unfavorably, because mine does use 
the X-register while the DOS version does not. The part of the 
CATALOG code that prints the number of sectors in a file 
requires that the X-register not be changed, so mine is not 
quite compatible as is. On the other hand, DOS goes to the 
trouble of saving the value to be printed in location $44, 
which is unnecessary, and also saves a value in $45 which is 
otherwise totally ignored. This foolishness takes place at 
SADB9-SADBF and SAE04-SAEOA. 


Le OAVE S.PRINT 000-255 

1020 PRINT.000. 255 
0800- AO 02 1030 LDY #2 
0802= A2 BO 1080 1 LDX #"0" 
O804- D9 19 08 1050 .2 CMP DECTBL,Y 
0807- 90 0 1060 BCC . DIGIT FINISHED 
a A 
i..ik? Bean 
0811=- 20 ED FD 1120 JSR $FDED 
0814- 68 a PLA GET REMAINDER 
0815- 88 1140 DEY 
oe ee 0 EA 1190 BPL .1 
0818- 60 . RTS 
0819- 01 OA 64 1180 DECTBL -DA #1,#10,#100 
081C= AQ 00 1200 T LDA # 
O81E- 4 1210 .1 PHA SAVE VALUE 
O81F- 20 00 08 1220 JSR PRINT.000.255 
OBo8- 20 ED FD 1500 JSR $EDED 
Ee - oe ‘ee fe GET PREVIOUS VALUE 
0 She 69 01 Vere ADC #1 INCREMENT 

Fi 1280 ait 
1290 


Don Lancaster's AWliIe TOOLKIT 


Solve all of your Applewriter™ IIe hassles with these eight diskette sides 
crammed full of most-needed goodies including ... 


Patches for NULL, shortline, IIc detrashing, full expansion 
Invisible and automatic microjustify and proportional space 
Complete, thorough, and fully commented disassembly script 


Detailed source code capturing instructions for custom mods 
Clear and useful answers to hundreds of most-asked questions 
Camera ready print quality secrets (like this ad, ferinstance) 
New and mind-blowing WPL routines you simply won't believe 
Self-Prompting (!) glossaries for Diablo, Epson, many others 
Includes a free "must have" bonus book and helpline service 

All this and bunches more for only $39.95. Everything is unlocked and 


unprotected. Order from SYNERGETICS, 746 First Street, Box 809-AAL, 
Thatoher, AZ, 85552. (602) 428-4073. VISA or MC accepted. 


Apple Assembly Line is published monthly by S-C SOFTWARE CORPORATION, P.O. Box 
280300, Dallas, Texas 75228. Phone (214) 324-2050. Subscription rate is $18 
per year in the USA, sent Bulk Mail; add $3 for First Class postage in USA, 
Canada, and Mexico; add $12 postage for other countries. Back issues are 
available for $1.80 each (other countries add $l per back issue for postage). 


All material herein is copyrighted by S-C SOFTWARE CORPORATION, all rights 
reserved. (Apple is a registered trademark of Apple Computer, Inc.) 


